home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / unixport / sys_kcn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-04-20  |  506 b   |  27 lines
  1. #include "../h/include.h"
  2.  
  3. extern void   user_init();  
  4.  
  5. void init_or_load1 ();
  6. #define init_or_load(fn,file) do {extern int fn(); init_or_load1(fn,file);} \
  7.    while(0)
  8.  
  9. init_init()
  10. {
  11.  
  12.   load("../lsp/export.lsp");
  13.   init_or_load(init_defmacro,"../lsp/defmacro.o");
  14.   init_or_load(init_evalmacros,"../lsp/evalmacros.o");
  15.   init_or_load(init_top,"../lsp/top.o");
  16.   init_or_load(init_module,"../lsp/module.o");
  17.   load("../lsp/autoload.lsp");
  18.   load("../lsp/auto.lsp");    
  19. }
  20.  
  21.  
  22. init_system()
  23. {
  24.   user_init();
  25. }
  26.  
  27.